home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / imper.scm < prev    next >
Encoding:
Text File  |  1993-02-22  |  270 b   |  12 lines
  1. (define (fib n)
  2.         (do ((a 0 b)
  3.              (b 1 (+ a b))
  4.              (c n (- c 1)))
  5.             ((= c 0) a)))
  6.  
  7. (define (map2 f l)
  8.         (do ((l1 l (cdr l1))
  9.              (l2 '() (cons (f (car l1))
  10.                            l2)))
  11.             ((null? l1) l2)))
  12.